home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 3
/
Precision Software Applications Silver Collection Volume Three (PSM) (1993).iso
/
music2
/
mepody.exe
/
PLARRAY.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-13
|
256b
|
16 lines
{ Procedure PlayArray plays melody from constant array.
MAX is the size of the array.}
procedure PlayArray;
var
i : integer;
begin
for i := 1 to MAX do
begin
sound(melody[i,1]);
delay(melody[i,2]);
nosound;
end;
end;